home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / getvp.rexx < prev    next >
OS/2 REXX Batch file  |  1978-02-04  |  178b  |  11 lines
  1. /* GET VIEWER/PLAYER */
  2. call open(place, 'env:rplay')
  3. wher = readln(place)
  4.  
  5. lng = LENGTH(wher)
  6. x = lng - 2
  7. fileBC = SUBSTR( wher , 2 , x )
  8.  
  9. ADDRESS 'AV.REXX'
  10. SETVAR vplay fileBC
  11.